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Abstract 

This is a collection of examples showing how the GAP system [GAP08] can be used to compute 
information about the generatin g graph s of finite groups, ft includes all examples that were needed 
for the computational results in [BGL + | . 

The purpose of this writeup is twofold. On the one hand, the computations are documented 
this way. On the other hand, the GAP code shown for the examples can be used as test input for 
automatic checking of the data and the functions used. 
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1 Overview 

The purpose of this note is to doc ument th e GAP computations that were carried out in order to 
obtain the computational results in [BGL + j . 

In order to keep this note self-contained, we first describe the theory needed, in Section [5] The 
translation of the relevant formulae into GAP functions can be found in Section [3] Then Section [4] 
describes the computations that only require (ordinary) character tables in the GAP Character Table 
Library Bre04 . Computations using also the groups are shown in Section [S] 

The examples use the GAP Character Table Library and the GAP Library of Tables of Marks, so we 
first load these packages in the required versions. 

Also, we force the assertion level to zero; this is the default in interactive GAP sessions but the level 
is automatically set to 1 when a file is read with Readiest. 

gap> if not CompareVersionNumbers ( GAPInfo. Version, "4.4.12" ) then 

> Error( "need GAP in version at least 4.4.12" ); 

> f i; 

gap> LoadPackage( "ctbllib", "1.1.4" ); 
true 

gap> LoadPackage( "tomlib", "1.1.1" ); 
true 

gap> SetAssertionLeveK ); 

2 Theoretical Background 

Let G be a finite noncyclic group and denote by G x the set of nonidentity elements in G. We define 
the generating graph V(G) as the undirected graph on the vertex set G x by joining two elements 
x,y £ G x by an edge if and only if (x,y) = G holds. For x G G x , the vertex degree d(T,x) is 
\{y G G x ; (x,y) = G}|. The closure cl(r) of the graph T with m vertices is defined as the graph 
with the same vertex set as T, where the vertices x, y are joined by an edge if they are joined by an 
edge in V or if d(T,x) + d(T,y) > m. We denote iterated closures by cl (i) (r) = cl(cl Ci_1) (T)), where 

c i(o)(r) =r. 

In the following, we will show that the generating graphs of the following groups contain a Hamiltonian 
cycle: 

• Nonabelian simple groups of orders at most 10 7 , 

• groups G containing a unique minimal normal subgroup N such that N has order at most 10 6 , 
N is nonsolvable, and G/N is cyclic, 

• sporadic simple groups and their automorphism groups. 

Clearly the condition that G/ N is cyc lic for all nontrivial normal subgroups N of G is necessary 
for r(G) be ing connected, and |BGL + 1 Conjecture 1.6] states that this condition is also sufficient. 
By |BGL + [ Proposition 1.1], this conjecture is true for all solvable groups, and the second entry in 
the above list implies that this conjecture holds for all nonsolvable groups of order up to 10 6 . 

The question whether a graph F contains a Hamiltonian cycle (i. e., a closed path in F that visits 
each vertex exactly once) can be answered using the following sufficient criteria (see |BGL + j ). Let 
d\ < di < ■ ■ ■ < d m be the vertex degrees in V. 
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Posa's criterion: If dk > k + 1 holds for 1 < k < m/2 then F contains a Hamiltonian cycle. 

Chvatal's criterion: If dk > fc + 1 or d m _k > m — k holds for 1 < k < m/2 then T contains a 
Hamiltonian cycle. 

Closure criterion: A graph contains a Hamiltonian cycle if and only if its closure contains a Hamil- 
tonian cycle. 

2.1 Character-Theoretic Lower Bounds for Vertex Degrees 

Using character-theoretic methods similar to those used to obtain the results in BGK08] (the com- 
putations for that paper are shown in [Breb] ). we can compute lower bounds for the vertex degrees 
in generating graphs, as follows. 

Let R be a set of representatives of conjugacy classes of nonidentity elements in G, fix s G G x , let 
M(G,s) denote the set of those maximal subgroups of G that contain s, let M (G, s) denote a set of 
representatives in -M(G, s) w. r. t. conjugacy in G. For a subgroup M of G, the permutation character 
1m is defined by 

1m{9) - \M\-\gO\ ' 

where g G = {g x ;x G G}, with g x = x~ 1 gx, denotes the conjugacy class of g in G. So we have 
l£(l) = \G\/\M\ and thus \g G n M| = | S G | • 

Doubly counting the set {(s x , M v ); x, y G G, G M a } yields \M G \-\s G nM\ = s G ■ \{A1 X ; x G G, s G 
AP}| and thus {AP; a; G G, s G M x } | = |M G | • 1m(s)/1m(1) < l G /(s). (If M is a maximal subgroup 
of G then either M is normal in G or self-normalizing, and in the latter case the inequality is in fact 
an equality.) 

Let n denote the multiset of primitive permutation characters of G, i. e., of the permutation characters 
l M where M ranges over representatives of the conjugacy classes of maximal subgroups of G. 

Define 

S(s,g G ) := \g G \ ■ max | 0, 1 - ^ ^G?) ' *(«)/*(!) \ 

and d(s,g G ) := \{x G g G ; (s,x) — G}|, the contribution of the class g G to the vertex degree of s. 
Then we have d(F(G),s) = X^e-R d(s, x G ) and 

d(s,g G ) = \g G \-\ |J {xe g G ;{x,s) C M}| 

M6M(G,s) 

> maxjo,| 5 G |- E \9 G ^M\\ 

= |.9 G |-maxjo,l- ]T | 

> | ff G |-maxio,l- E 1m(5)-1mW/1m(1) | 
= S(s,g G ) 

So <5(s) := X^igij ^( s i x °) ls a lower bound for the vertex degree of s; this bound can be computed if 
n is known. 

For computing the vertex degrees of the iterated closures of F(G), we define d^ \s,g G ) := d(s,g G ) 
and 

G / 1^1 ; dW(r(G),8)+dW(T(G),g)> |G| - 1 

d [S ' 9 > -\ d^(s,g G ) ; otherwise 
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Then d(clW(r(G)),s) = J2 xeR d^ (s, g G ) holds. 
Analogously, we set S^(s,g G ) := S(s,g G ), 

*(i+U r , f |3 G | ; S^(s)+S^(g)>\G\-l 

(S > 9 >-{ S^(s,g G ) ; otherwise 

and <5 (l) (s) := £ xeJ? <5 W (s,x G ), a lower bound for d(cl w (T(G)), s) that can be computed if II is 
known. 

2.2 Checking the Criteria 

Let us assume that we know lower bounds f3(s) for the vertex degrees d(cl' l - ) (T(G)), s), for some fixed 
i, and let us choose representatives si,S2, . . . ,si of the nonidentity conjugacy classes of G such that 
P{si) < /3(s2) < • • • < P(si) holds. Let c k — \s G \ be the class lengths of these representatives. 

Then the first c\ vertex degrees, ordered by increasing size, are larger than or equal to /3(si), the 
next C2 vertex degrees are larger than or equal to /3(s2), and so on. 

Then the set of indices in the fc-th nonidentity class of G for which Posa's criterion is not guaranteed 
by the given bounds is 

{x; ci + c 2 H + c fc _! < x < ci + c 2 + . . . c k ,x < (\G\ - l)/2, P(s k ) < x + 1}. 

This is an interval {L k , L k + 1, . . . , U k } with 

L k = max{l + ci + c 2 H + c fc _i,/3(s fe )} 

and 

U k = min{ci + c 2 + ■■■ + c k , [\G\/2\ - 1} . 

(Note that the generating graph has m = \G\ — 1 vertices, and that x < m/2 is equivalent to 
x < [\G\/2\ - 1.) 

The generating graph T(G) satisfies Posa's criterion if all these intervals are empty, i. e., if L k > U k 
holds for 1 < k < I. 

The set of indices for which Chvatal's criterion is not guaranteed is the intersection of 

{m — fc;l<m — k < m/2, d k < k} 
with the set of indices for which Posa's criterion is not guaranteed. 

Analogously to the above considerations, the set of indices m — x in the former set for which Chvatal's 
criterion is not guaranteed by the given bounds and such that x is an index in the fc-th nonidentity 
class of G is 

{m — x-ci + C2 H + cfc_i < x < ci + C2 + . . -c k , 1 < m — x < (\G\ — l)/2, (3(s k ) < x}. 

This is again an interval {L' k , L' k + 1, . . . , U' k } with 

L' k = max{l,m - (ci + c 2 H + c fe )} 

and 

f/fc = min{m- (ci +c 2 + ■■■ + c fc _!) - 1, L|G|/2J - 1, m - 1 - (3(s k )} . 

The generating graph F(G) satisfies Chvatal's criterion if the union of the intervals {L' k ,L' k + 
1, . . . , U k }, for 1 < k < I is disjoint to the union of the intervals {L k , L k + 1, . . . , U k }, for 1 < k < I. 
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3 GAP Functions for the Computations 



We describe two approaches to compute, for a given group G, vertex degrees for the generating graph 
of G or lower bounds for them, by calculating exact vertex degrees from G itself (see Section 13. 1|) or 
by deriving lower bounds for the vertex degrees using just character-theoretic information about G 
and its subgroups (see Section [3, 2 1) . Finally, Section [3.31 deals with deriving lower bounds of vertex 
degrees of iterated closures. 

3.1 Computing Vertex Degrees from the Group 

In this section, the task is to compute the vertex degrees d(s,g G ) using explicit computations with 
the group G. 

The function IsGeneratorsOf TransPermGroup checks whether the permutations in the list list gen- 
erate the permutation group G, provided that G is transitive on its moved points. (Note that testing 
the necessary condition that the elements in list generate a transitive group is usually much faster 
than testing generation.) This function has been used already in [Breb] . 

gap> BindGlobaK " IsGeneratorsOf TransPermGroup" , function( G, list ) 

> local S; 
> 

> if not IsTransitive( G ) then 

> Error( "<G> must be transitive on its moved points" ); 

> fi; 

> S:= SubgroupNC( G, list ); 
> 

> return IsTransitive( S, MovedPoints( G ) ) and Size( S ) = Size( G ); 

> end ) ; 

The function VertexDegreesGeneratingGraph takes a transitive permutation group G (in order to be 
allowed to use IsGeneratorsOf TransPermGroup), the list classes of conjugacy classes of G (in order 
to prescribe an ordering of the classes), and a list normalsubgroups of proper normal subgroups of G, 
and returns the matrix [d(s,g )] s , g of vertex degrees, with rows and columns indexed by nonidentity 
class representatives ordered as in the list classes. (The class containing the identity element may 
be contained in classes.) 

The following criteria are used in this function. 

• The function tests the (non)generation only for representatives of Cg(3)-Cg (s)-double cosets, 
where Cc(g) '■= {x G G;gx = xg} denotes the centralizer of g in G. Note that for ci G Cg(<?), 
C2 G Cg(s), and a representative r G G, we have (s,g cirC2 ) = {s,g r ) C2 . If (s,g T ) = G then the 
double coset D — CG(g)rCc(s) contributes |D|/|Cg((/)| to the vertex degree d(s,g G ), otherwise 
the contribution is zero. 

• We have d(s,g G ) ■ | Co (<?) | = d(g,s G ) ■ \Cq(s)\. (To see this, either establish a bijection of the 
above double cosets, or doubly count the edges between elements of the conjugacy classes of s 
and g.) 

• If (si) = (s2) and (gi) = (32) hold then we have d(si,g G ) — d(s2,g G ) = d(si,g G ) = d(s2,g G ), 
so only one of these values must be computed. 

• If both s and g are contained in one of the normal subgroups given then d(s,g G ) is zero. 

• If G is not a dihedral group and both s and g are involutions then d(s,g G ) is zero. 

gap> BindGlobaK "VertexDegreesGeneratingGraph", 

> function ( G, classes, normalsubgroups ) 

> local nccl, matrix, cents, powers, normalsubgroupspos , i, j, g_i, nsg, 
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> g-j. g en > P air > d > P°w; 
> 

> if not IsTransitive( G ) then 

> Error( "<G> must be transitive on its moved points" ); 

> fi; 
> 

> classes:= Filtered( classes, C -> Order( Representative ( C ) ) <> 1 ); 

> nccl:= Length ( classes ); 

> matrix := [] ; 

> cents : = [] ; 

> powers : = [] ; 

> normalsubgroupspos:= [] ; 

> for i in [1 . . nccl ] do 

> matrix [i] := [] ; 

> if IsBound( powers [i] ) then 

> # The i-th row equals the earlier row 'powers [i] ' . 

> for j in [ 1 . . i ] do 

> matrix [i] [j] := matrix [ powers [i] ] [j] ; 

> matrix [j] [i] := matrix [j] [ powers [i] ]; 

> od; 

> else 

> # We have to compute the values . 

> g-i := Representative ( classes [i] ); 

> nsg:= Filtered( [ 1 .. Length( normalsubgroups ) ], 

> i -> g_i in normalsubgroups [i] ) ; 

> normalsubgroupspos [i] := nsg; 

> cents [i] := Centralizer( G, g_i ); 

> for j in [ 1 . . i ] do 

> g_j := Representative ( classes[j] ); 

> if IsBound( powers [j] ) then 

> matrix [i] [j] := matrix[i][ powers[j] ]; 

> matrix [j] [i] := matrix [ powers [j] ] [i] ; 

> elif not IsEmptyC Intersection( nsg, normalsubgroupspos [j] ) ) 

> or ( Order ( g_i ) = 2 and Order ( g_j ) = 2 

> and not IsDihedralGroupC G ) ) then 

> matrix [i] [j] := 0; 

> matrix [j] [i] := 0; 

> else 

> # Compute $d(g_i, g_j"G)$. 

> gen:= 0; 

> for pair in DoubleCosetRepsAndSizes ( G, cents [j], cents [i] ) do 

> if IsGeneratorsOf TransPermGroup( G, [ g_i, g_j~pair[l] ] ) then 

> gen:= gen + pair [2] ; 

> fi; 

> od; 

> matrix [i] [j] := gen / Size( cents[j] ); 

> if i <> j then 

> matrix [j ] [i] := gen / Size( cents [i] ); 

> fi; 

> fi; 

> od; 
> 

> # For later, provide information about algebraic conjugacy. 

> for d in Difference( PrimeResidues( 0rder( g_i ) ) , [ 1 ] ) do 
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> pow:= g_i~d; 

> for j in [ i+1 . . nccl ] do 

> if not IsBound( powers [j] ) and pow in classes [j] then 

> powers [j] := i ; 

> break; 

> fi; 

> od; 

> od; 

> fi; 

> od; 
> 

> return matrix; 



> end ) ; 

3.2 Computing Lower Bounds for Vertex Degrees 

In this section, the task is to compute the lower bounds 8(s,g G ) for the vertex degrees d(s,g G ) using 
character-theoretic methods. 

We provide GAP functions for computing the multiset IT of the primitive permutation characters of 
a given group G and for computing the lower bounds 5(s,g G ) from II. 

For many almost simple groups, the GAP libraries of character tables and of tables of marks contain 
information for quickly computing the primitive permutation characters of the group in question. 
Therefore, the function PrimitivePermutationCharacters takes as its argument not the group G 
but its character table T, say. (This function is shown already in [Breb] .) 

If T is contained in the GAP Character Table Library (see Br e04| ) then the complete set of primitive 
permutation characters can be easily computed if the character tables of all maximal subgroups and 
their class fusions into T are known (in this case, we check whether the attribute Maxes of T is bound) 
or if the table of marks of G and the class fusion from T into this table of marks are known (in this 
case, we check whether the attribute FusionToTom of T is bound). If the attribute UnderlyingGroup 
of T is bound then the group stored as the value of this attribute can be used to compute the primitive 
permutation characters. The latter happens if T was computed from the group G; for tables in the 
GAP Character Table Library, this is not the case by default. 

The GAP function PrimitivePermutationCharacters tries to compute the primitive permutation 
characters of a group using this information; it returns the required list of characters if this can be 
computed this way, otherwise fail is returned. (For convenience, we use the GAP mechanism of 
attributes in order to store the permutation characters in the character table object once they have 
been computed.) 

gap> DeclareAttribute ( "PrimitivePermutationCharacters", IsCharacterTable ); 
gap> InstallMethod( PrimitivePermutationCharacters, 



> [ IsCharacterTable ] , 

> function( tbl ) 

> local maxes, torn, G; 
> 

> if HasMaxes( tbl ) then 

> maxes := List( Maxes ( tbl ), CharacterTable ); 

> return List( maxes, subtbl -> TrivialCharacter ( subtbl )~tbl ); 

> elif HasFusionToTom( tbl ) then 

> tom:= TableOf Marks ( tbl ); 

> maxes := MaximalSubgroupsTom( torn ); 

> return PermCharsTom( tbl, torn ){ maxes [1] }; 

> elif HasUnderlyingGroup( tbl ) then 
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> G:= Under lyingGroup( tbl ); 

> return List( MaximalSubgroupClassReps( G ), 

> M -> TrivialCharacter( M )~tbl ); 

> fi; 
> 

> return fail; 



> end ) ; 

The next function computes the lower bounds S(s, g°) from the two lists classlengths of conjugacy 
class lengths of the group G and prim of all primitive permutation characters of G. (The first entry 
in classlengths is assumed to represent the class containing the identity element of G.) The return 
value is the matrix that contains in row i and column j the value S(s,g G ), where s and g are in the 
conjugacy classes represented by the (i + l)-st and (j + l)-st column of tbl, respectively. So the row 
sums of this matrix are the values S(s). 

gap> LowerBoundsVertexDegrees : = function( classlengths, prim ) 



> local sizes, nccl; 
> 

> nccl:= Length( classlengths ); 

> return List( [ 2 . . nccl ] , 

> i -> List( [ 2 . . nccl ] , 

> j -> Maximum ( 0, classlengths [j] - Sum( prim, 

> pi -> classlengths [j] * pi[j] * pi [i] / pi [1] ) ) ) ); 



> end ; ; 

3.3 Evaluating the (Lower Bounds for the) Vertex Degrees 

In this section, the task is to compute (lower bounds for) the vertex degrees of iterated closures of 
a generating graph from (lower bounds for) the vertex degrees of the graph itself, and then to check 
the criteria of Posa and Chvatal. 

The arguments of all functions defined in this section are the list classlengths of conjugacy class 
lengths for the group G (including the class of the identity element, in the first position) and 
a matrix bounds of the values d^(s,g G ) or <S^(s, g°), with rows and columns indexed by non- 
identity class representatives s and g, respectively. Such a matrix is returned by the functions 
VertexDegreesGeneratingGraph or LowerBoundsVertexDegrees, respectively. 

The function LowerBoundsVertexDegreesOf Closure returns the corresponding matrix of the values 
d^ +1 \s,g G ) or S^ i+1 \s,g G ), respectively. 

gap> LowerBoundsVertexDegreesOfClosure:= function( classlengths, bounds ) 



> local delta, newbounds, size, i, j; 
> 

> delta := List( bounds, Sum ); 

> newbounds := List( bounds, ShallowCopy ); 

> size:= Sum( classlengths ); 

> for i in [ 1 . . Length ( bounds ) ] do 

> for j in [ 1 . . Length ( bounds ) ] do 

> if delta[i] + delta[j] >= size - 1 then 

> newbounds [i] [j] := classlengths [ j+1 ]; 

> fi; 

> od; 

> od; 
> 

> return newbounds; 



> end; ; 
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Once the values d w (s, g G ) or <5 W (s, # G ) are known, we can check whether Posa's or ChvataPs criterion 
is satisfied for the graph cl' 1 ' (T(G)), using the function CheckCriteriaOf PosaAndChvatal shown 
below. (Of course a negative result is meaningless in the case that only lower bounds for the vertex 
degrees are used.) 

The idea is to compute the row sums of the given matrix, and to compute the intervals {Lk,Lk + 
1, . . . , t/fc} and {L' k , L' k + 1, . . . , U' k } that were introduced in Section \2. 21 

The function CheckCriteriaOf PosaAndChvatal returns, given the list of class lengths of G and the 
matrix of (bounds for the) vertex degrees, a record with the components badForPosa (the list of 
those pairs [L k , Uk] with the property L k < Uk), badForChvatal (the list of pairs of lower and upper 
bounds of nonempty intervals where Chvatal's criterion may be violated), and data (the sorted list 
of triples [S(g k ), \g k \, where t(fc) is the row and column position of gk in the matrix bounds). 

The ordering of class lengths must of course be compatible with the ordering of rows and columns of 
the matrix, and the identity element of G must belong to the first entry in the list of class lengths. 

gap> CheckCriteriaOf PosaAndChvatal : = function( classlengths , bounds ) 



> local size, degs, addinterval, badForPosa, badForChvatall , pos, half, 

> i, lowl, upp2, uppl, low2, badForChvatal, intervall, interval2; 
> 

> size:= Sum( classlengths ); 

> degs:= List( [ 2 .. Length( classlengths ) ], 

> i -> [ Sum( bounds [ i-1 ] ), classlengths [i] , i ] ); 

> Sort ( degs ) ; 
> 

> addinterval : = function( intervals, low, upp ) 

> if low <= upp then 

> Add( intervals, [ low, upp ] ); 

> fi; 

> end; 
> 

> badForPosa := [] ; 

> badForChvatall := [] ; 

> pos:= 1; 

> half:= Int( size / 2 ) - 1; 

> for i in [ 1 . . Length ( degs ) ] do 

> # We have pos = c_l + c_2 + \cdots + c_{i-l} + 1 

> lowl:= Maximum( pos, degs[i][l] ); # L_i 

> upp2:= Minimum( half, size-l-pos, size-l-degs [i] [1] ); # U'_i 

> pos:= pos + degs [i] [2]; 

> uppl:= Minimum( half, pos-1 ); # U_i 

> low2:= Maximum( 1, size-pos ); # L'_i 

> addinterval ( badForPosa, lowl, uppl ); 

> addinterval ( badForChvatall, low2, upp2 ); 

> od; 
> 

> # Intersect intervals. 

> badForChvatal := [] ; 

> for intervall in badForPosa do 

> for interval2 in badForChvatall do 

> addintervaK badForChvatal, Maximum( intervall [1] , interval2[l] ), 

> Minimum ( intervall [2] , interval2[2] ) ); 

> od; 

> od; 
> 

> return rec( badForPosa := badForPosa, 
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> 
> 

> end; 



badForChvatal : = Set ( badForChvatal ), 
data:= degs ) ; 



Finally, the function HamiltonianCyclelnf o assumes that the matrix bounds contains lower bounds 
for the vertex degrees in the generating graph T, and returns a string that describes the minimal 
i with the property that the given bounds suffice to show that cl^'(T) satisfies Posa's or Chvatal's 
criterion, if such a closure exists. If no closure has this property, the string "no decision" is returned. 

gap> HamiltonianCyclelnf o : = function( classlengths , bounds ) 



> local i , result , res , oldbounds ; 
> 

> i:= 0; 

> result:= rec( Posa:= fail, Chvatal:= fail ); 

> repeat 

> res:= CheckCriteriaOf PosaAndChvatal ( classlengths, bounds ); 

> if result. Posa = fail and IsEmptyC res .badForPosa ) then 

> result . Posa: = i; 

> fi; 

> if result . Chvatal = fail and IsEmptyC res .badForChvatal ) then 

> result . Chvatal : = i; 

> fi; 

> i:= i+1; 

> oldbounds : = bounds ; 

> bounds := LowerBoundsVertexDegreesOf Closure ( classlengths, bounds ); 

> until oldbounds = bounds; 
> 

> if result. Posa <> fail then 

> if result. Posa <> result . Chvatal then 

> return ConcatenationC "Chvatal for ", OrdinaK result . Chvatal ), 

> " closure, Posa for ", OrdinaK result. Posa ), " closure" ); 

> else 

> return ConcatenationC "Posa for ", OrdinaK result. Posa ), 

> " closure" ) ; 

> fi; 

> elif result . Chvatal <> fail then 

> return ConcatenationC "Chvatal for ", OrdinaK result . Chvatal ), 

> " closure" ) ; 

> else 

> return "no decision" ; 

> fi; 



> end; 

4 Character-Theoretic Computations 

In this section, we apply the functions introduced in Section [3] to character tables of almost simple 
groups that are available in the GAP Character Table Library. 

Our first examples are the sporadic simple groups, in Section [4.11 then their automorphism groups 
are considered in Section [4.31 Small alternating and symmetric groups are treated in Section f4. 41 

For our convenience, we provide a small function that takes as its argument only the character 
table in question, and returns a string, either "no prim. perm, characters" or the return value of 
HamiltonianCyclelnf o for the bounds computed from the primitive permutation characters. 
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gap> HamiltonianCyclelnf oFromCharacterTable : = function( tbl ) 

> local prim, classlengths , bounds; 
> 

> prim:= PrimitivePermutationCharacters ( tbl ); 

> if prim = fail then 

> return "no prim. perm, characters"; 

> fi; 

> classlengths : = SizesConjugacyClasses ( tbl ); 

> bounds := LowerBoundsVertexDegrees ( classlengths, prim ); 

> return HamiltonianCyclelnf o( classlengths, bounds ); 

> end; ; 

4.1 Sporadic Simple Groups, except the Monster 

The GAP Character Table Library contains the tables of maximal subgroups of all sporadic simple 
groups except M. 

So the function PrimitivePermutationCharacters can be used to compute all primitive permutation 
characters for 25 of the 26 sporadic simple groups. 

gap> spornames:= AllCharacterTableNames ( IsSporadicSimple , true );; 
gap> for tbl in List( spornames, CharacterTable ) do 

> info:= HamiltonianCyclelnf oFromCharacterTable ( tbl ); 

> if info <> "Posa for Oth closure" then 

> Print ( Identified tbl ), ": ", info, "\n" ); 

> fi; 

> od; 

M: no prim. perm, characters 

It turns out that only for the Monster group, the information available in the GAP Character Table 
Library is not sufficient to prove that the generating graph contains a Hamiltonian cycle. 

4.2 The Monster 

Currently 43 classes of maximal subgroups of the Monster group M are known, but there may be 
more, see Wil . For some of the known ones, the character table is not known, and for some of those 
with known character table, the permutation character is not uniquely determined by the character 
tables involved. 

Nevertheless, we will show that the generating graph of M satisfies Posa's criterion. For that, we use 
the information that is available. 

For some of the known maximal subgroups S, the character tables are available in the GAP Character 
Table Library, and we derive upper bounds for the values of the primitive permutation characters l|f 
from the possible class fusions from S into M. For the other subgroups S, the permutation characters 
lg 1 have been computed with other methods. 

The list prim defined below has length 43. The entry at position i is a list of length one or two. If 
prim[z] has length one then its unique entry is the identifier of the library character table of the 
i-th maximal subgroup of M. If prim[i] has length two then its entries are a string describing the 
structure of the i-th maximal subgroup S of M and the permutation character ljf . 

(The construction of the explicitly given characters in this list will be documented elsewhere. Some 
of the constructions can be found in [Breaj .) 
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gap> m:= CharacterTable( "M" );; 
gap> primdata:= [ 

> [ "2.B" ] , 

> [ "2-1+24. Col" ] , 

> [ "3.F3+.2" ] , 

> [ "2~2.2E6(2) .3.2" ] , 

> [ "2~(10+16) .010+(2)", 

> Character ( m, [ 512372707698741056749515292734375, 

> 405589064025344574375, 29628786742129575, 658201521662685, 

> 215448838605, 0, 121971774375, 28098354375, 335229607, 108472455, 

> 164587500, 4921875, 2487507165, 2567565, 26157789, 6593805, 398925, 0, 

> 437325, 0, 44983, 234399, 90675, 21391, 41111, 12915, 6561, 6561, 

> 177100, 7660, 6875, 315, 275, 0, 113373, 17901, 57213, 0, 4957, 1197, 

> 909, 301, 397, 0, 0, 0, 3885, 525, 0, 2835, 90, 45, 0, 103, 67, 43, 28, 

> 81, 189, 9, 9, 9, 0, 540, 300, 175, 20, 15, 7, 420, 0, 0, 0, 0, 0, 0, 

> 0, 165, 61, 37, 37, 0, 9, 9, 13, 5, 0, 0, 0, 0, 0, 0, 77, 45, 13, 0, 0, 

> 45, 115, 19, 10, 0, 5, 5, 9, 9, 1, 1, 0, 0, 4, 0, 0, 9, 9, 3, 1, 0, 0, 

> 0, 0, 0, 0, 4, 1, 1, 0, 24, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 0, 1, 0, 

> 4, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 3, 3, 1, 1, 2, 0, 3, 3, 0, 0, 0, 0, 0, 

> 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

> 0, 0, 0, ] ) ] , 

> [ "2~ (2+11+22) . (M24xS3)", 

> Character ( m, [ 16009115629875684006343550944921875, 

> 7774182899642733721875, 120168544413337875, 4436049512692980, 

> 215448838605, 131873639625, 760550656275, 110042727795, 943894035, 

> 568854195, 1851609375, 0, 4680311220, 405405, 78624756, 14467005, 

> 178605, 248265, 874650, 0, 76995, 591163, 224055, 34955, 29539, 20727, 

> 0, 0, 375375, 15775, 0, 0, 0, 495, 116532, 3645, 62316, 1017, 11268, 

> 357, 1701, 45, 117, 705, 0, 0, 4410, 1498, 0, 3780, 810, 0, 0, 83, 135, 

> 31, 0, 0, 0, 0, 0, 0, 0, 255, 195, 0, 215, 0, 0, 210, 0, 42, 0, 35, 15, 

> 1, 1, 160, 48, 9, 92, 25, 9, 9, 5, 1, 21, 0, 0, 0, 0, 0, 98, 74, 42, 0, 

> 0, 0, 120, 76, 10, 0, 0, 0, 0, 0, 1, 1, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 

> 0, 0, 0, 0, 5, 3, 0, 0, 0, 18, 0, 10, 0, 3, 3, 0, 1, 1, 1, 1, 0, 0, 2, 

> 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 6, 12, 0, 0, 2, 0, 0, 0, 2, 0, 0, 

> 1, 1, 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 

> 0, 0, 0, 0, 0, ] ) ] , 

> [ "3~(1+12) .2.Suz.2" ] , 

> [ "2' (5+10+20) . (S3xL5(2))", 

> Character ( m, [ 391965121389536908413379198941796875, 

> 23914487292951376996875, 474163138042468875, 9500455925885925, 

> 646346515815, 334363486275, 954161764875, 147339103275, 1481392395, 

> 1313281515, 0, 8203125, 9827885925, 1216215, 91556325, 9388791, 115911, 

> 587331, 874650, 0, 79515, 581955, 336375, 104371, 62331, 36855, 0, 0, 

> 0, 0, 28125, 525, 1125, 0, 188325, 16767, 88965, 2403, 9477, 1155, 891, 

> 207, 351, 627, 0, 0, 4410, 1498, 0, 0, 0, 30, 150, 91, 151, 31, 0, 0, 

> 0, 0, 0, 0, 0, 0, 0, 125, 0, 5, 5, 210, 0, 42, 0, 0, 0, 0, 0, 141, 45, 

> 27, 61, 27, 9, 9, 7, 3, 15, 0, 0, 0, 0, 0, 98, 74, 42, 0, 0, 30, 0, 0, 

> 0, 6, 6, 6, 3, 3, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

> 1, 1, 0, 18, 0, 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 

> 2, 0, 0, 0, 0, 0, 0, 0, 2, 2, 0, 2, 3, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

> 0, 0, 2, 0, 2, 0, 0, 0, 0, 0, 0, 3, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, ] ) ], 

> [ "S3xTh" ] , 

> [ " [2~39] . (L3(2)x3S6)", 

> Character ( m, [ 4050306254358548053604918389065234375, 
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> 148844831270071996434375, 2815847622206994375, 14567365753025085, 

> 3447181417680, 659368198125, 3520153823175, 548464353255, 5706077895, 

> 3056566695, 264515625, 0, 19572895485, 6486480, 186109245, 61410960, 

> 758160, 688365, 58310, 0, 172503, 1264351, 376155, 137935, 99127, 

> 52731, 0, 0, 119625, 3625, 0, 0, 0, 0, 402813, 29160, 185301, 2781, 

> 21069, 1932, 4212, 360, 576, 1125, 0, 0, 1302, 294, 0, 2160, 810, 0, 0, 

> 111, 179, 43, 0, 0, 0, 0, 0, 0, 0, 185, 105, 0, 65, 0, 0, 224, 0, 14, 

> 0, 0, 0, 0, 0, 337, 105, 36, 157, 37, 18, 18, 16, 4, 21, 0, 0, 0, 0, 0, 

> 70, 38, 14, 0, 0, 0, 60, 40, 10, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 10, 0, 

> 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 1, 0, 0, 0, 24, 0, 6, 0, 0, 0, 0, 0, 0, 

> 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 6, 8, 0, 0, 2, 0, 0, 

> 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 4, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 

> 0, 0, 0, 0, 0,0,4,0,0,0])], 

> [ "3~8.08-(3) .2_3", 

> Character ( m, [ 6065553341050124859256025907200000000, 

> 117457246944126566400000, 2373192769339392000, 4237313863946240, 

> 1528370386400, 480247040000, 1485622476800, 207447654400, 3523215360, 

> 1124597760, 2926000000, 0, 4720235520, 18601440, 49864704, 14602080, 

> 1914720, 645120, 0, 168070, 0, 811008, 133120, 204800, 0, 8192, 3521, 

> 4250, 308000, 28800, 0, 0, 0, 0, 53504, 1520, 68992, 3584, 2304, 672, 

> 7216, 240, 192, 960, 156, 0, 0, 0, 70, 7840, 550, 0, 0, 0, 0, 0, 0, 48, 

> 93, 57, 18, 24, 0, 160, 200, 0, 320, 0, 0, 0, 49, 0, 4, 0, 0, 0, 0, 

> 144, 0, 0, 80, 0, 20, 64, 20, 0, 8, 0, 12, 0, 2, 2, 0, 0, 0, 6, 0, 0, 

> 20, 24, 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 2, 7, 0, 0, 12, 0, 

> 0, 0, 20, 8, 0, 0, 5, 0, 4, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

> 12, 0, 0, 0, 0, 2, 2, 0, 0, 0, 2, 4, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 

> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

> 0,0,0,0])], 

> [ "(DIOxHN) .2" ] , 

> [ "(3~2:2x08+(3)).S4", 

> Character ( m, 

> [ 377694424605514962329798663208960000000, 2359667150587942666240000, 

> 28756421759729664000, 377826645416419584, 16593035298840, 

> 5193792576000, 14007297638400, 1715997638656, 5830082560, 2683699200, 

> 5266800000, 0, 47782831360, 241801560, 626008320, 48633880, 9541080, 

> 483840, 2332400, 0, 16384, 3964928, 926720, 102400, 16384, 32256, 

> 51030, 7371, 800800, 41600, 0, 0, 0, 0, 248640, 120480, 200656, 13440, 

> 13696, 1260, 4708, 1120, 1864, 0, 26, 0, 7840, 336, 0, 4284, 180, 0, 0, 

> 0, 0, 0, 0, 265, 418, 270, 99, 81, 0, 480, 456, 0, 0, 0, 0, 455, 0, 56, 

> 0, 0, 0, 0, 0, 680, 64, 4, 16, 32, 18, 26, 16, 4, 0, 0, 10, 0, 9, 0, 

> 28, 24, 8, 0, 0, 0, 160, 20, 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

> 18, 3, 4, 1, 0, 8, 2, 0, 0, 20, 8, 0, 0, 0, 19, 0, 0, 0, 0, 0, 0, 0, 0, 

> 0, 0, 0, 0, 0, 0, 0, 2, 0, 1, 0, 4, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 0, 

> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

> 0, 0, 0, 0, 2,2,0,0,0,0])], 

> [ "3- (2+5+10) . (Mllx2S4)", 

> Character ( m, 

> [ 16458603283969466072643078298009600000000, 20359256136981938176000000, 

> 145987312780574720000, 724314893457326080, 21414300718720, 

> 18249387520000, 540226355200, 1703254425600, 4697620480, 4771020800, 

> 23408000000, 0, 43256012800, 98483840, 909246464, 213623680, 8362880, 

> 4444160, 0, 0, 0, 475136, 998400, 81920, 0, 35840, 25312, 10597, 0, 

> 128000, 0, 0, 0, 440, 93184, 160, 134400, 1792, 7168, 560, 15888, 160, 

> 64, 320, 0, 0, 0, 0, 0, 19880, 2240, 0, 0, 0, 0, 0, 0, 301, 148, 200, 
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> 221, 53, 0, 640, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 40, 0, 0, 224, 0, 0, 32, 

> 32, 20, 156, 8, 0, 8, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 104, 80, 0, 

> 0, 0, 0, 0, 0, 0, 8, 8, 0, 0, 0, 4, 1, 6, 1, 0, 0, 0, 0, 0, 0, 16, 0, 

> 0, 0, 0, 0, 0, 0, 4, 4, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 

> 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

> 0, 0, 0, 0, 0, 2, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ] ) ], 

> [ "3- (3+2+6+6) : (L3(3)xSD16) " , 

> Character ( m, 

> [ 69632552355255433384259177414656000000000, 10962676381451812864000000, 

> 276872489756262400000, 816070626832384000, 52168426710400, 

> 4994569216000, 29712449536000, 917136998400, 32883343360, 14313062400, 

> 0, 0, 53947801600, 445244800, 995491840, 268777600, 8579200, 2007040, 

> 0, 0, 0, 4505600, 588800, 245760, 0, 35840, 24760, 4105, 0, 0, 0, 0, 0, 

> 0, 148480, 8800, 134400, 1792, 13312, 1680, 20784, 1120, 448, 960, 156, 

> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 241, 304, 184, 121, 49, 0, 0, 0, 0, 

> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 416, 0, 0, 96, 32, 20, 92, 24, 0, 8, 

> 0, 28, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

> 0, 0, 0, 4, 1, 12, 1, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

> 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 0, 0, ] ) ], 

> [ "5~(l+6) :2. J2.4" ] , 

> [ "(7:3xHe) :2" ] , 

> [ "(A5xA12) :2" ] , 

> [ "5~(3+3) . (2xL3(5))" ] , 

> [ " (A6xA6xA6) . (2xS4) " ] , 

> [ "(A5xU3(8) :3) :2" ] , 

> [ "5~(2+2+4) : (S3xGL2(5))" ], 

> [ "(L3(2)xS4(4) :2) .2" ] , 

> [ "7- (1+4) : (3x2. S7) " ] , 

> [ "(5-2: [2~4]xU3(5)) .S3" ] , 

> [ "(L2(ll)xM12) :2" ] , 

> [ "(A7x(A5xA5) :2~2) :2" ] , 

> [ "5~4: (3x2.L2(25)) .2" ] , 

> [ "7~ (2+1+2) :GL2(7)" ] , 

> [ "MllxA6.2~2" ] , 

> [ "(S5xS5xS5) :S3" ] , 

> [ "(L2(ll)xL2(ll)) :4" ] , 

> [ "13"2:2.L2(13) .4" ] , 

> [ "(7~2: (3x2A4)xL2(7)) .2" ], 

> [ "(13:6xL3(3)) .2" ] , 

> [ "13" (1+2) : (3x4S4)" ] , 

> [ "L2(7D" ] , 

> [ "L2(59)" ] , 

> [ "11-2: (5x2. A5)" ] , 

> [ "L2(29) .2" ] , 

> [ "7~2:2psl(2,7)" ] , 

> [ "L2(19) .2" ] , 

> [ "41:40" ] , 

> ] ; ; 

We compute upper bounds for the permutation character values in the cases where the characters are 
not given explicitly. (We could improve this by using additional information about the class fusions, 
but this will not be necessary.) 
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> for entry in primdata do 



> s:= CharacterTable( entry[l] ); 

> if not IsBound( entry [2] ) then 

> fus:= PossibleClassFusions ( s, m ) ; 

> poss:= Set( List( fus, x -> InducedClassFunctionsByFusionMapC s, m, 

> [ TrivialCharacter( s ) ], x ) [1] ) ); 

> entry [2]:= List( [ 1 .. NrConjugacyClasses ( m ) ] , 

> i -> Maximum ( List( poss, x -> x[i] ) ) ); 

> f i; 



> od; 

According to Wil , any maximal subgroup of the Monster besides the above 43 known classes is an 
almost simple group whose socle is one of L2(13), Li2(27), Sz(8), U 3 (4), and U3(8). 

We show that the elements of such subgroups are contained in the union of 59 conjugacy classes of 
the Monster that cover less than 2.1 percent of the elements in the Monster. For that, we compute 
the possible class fusions from the simple groups S into the Monster, and then the possible class 
fusions from the automorphic extensions of S into the Monster, using the possible class fusions of S. 
(This approach is faster than computing each class fusion from scratch.) 

After the following computations, the list badclasses will contain the positions of all those classes 
of M that may contain elements in some of the additional maximal subgroups. 

For each simple group in question, we enter the identifiers of the character tables of the automorphic 
extensions that can occur. Note that the automorphism groups of the five groups have the structures 
L 2 (13).2, L 2 (27).6, Sz(8).3, U 3 (4).4, and U 3 (8).(3xS 3 ), respectively. We need not consider the groups 
U 3 (8).3 2 and U3(8).(3 x S3) because already U3(8).32 does not admit an embedding into M, and we 
need not consider the group U3(8).S , 3 because its set of elements is covered by its subgroups of the 
types U 3 (8). 2 and U 3 (8).3 2 . 



gap> PossibleClassFusions ( CharacterTable( "U3(8).3_2" ) , m ) ; 
[ ] 

gap> badclasses := [] ; ; 
gap> names := [ 

> [ "L2(13)", "L2(13) .2" ] , 

> [ "L2(27)", "L2(13).2", "L2(13).3", "L2(13).6" ], 

> [ "Sz(8)", "Sz(8) .3" ] , 

> [ "03(4)", "U3(4).2", "U3(4).4" ], 

> [ "U3(8)", "U3(8).2", "U3(8).3_l", "U3(8).3_2", "U3(8).3_3", "U3(8).6" ], 

> ];; 

gap> for list in names do 

> t:= Char act erTable( list[l] ); 

> tfusm:= PossibleClassFusions ( t, m ); 

> UniteSet( badclasses, Flat( tfusm ) ); 

> for nam in list{ [ 2 . . Length( list ) ] } do 

> ext:= CharacterTable ( nam ); 

> for mapl in PossibleClassFusions ( t, ext ) do 

> inv:= InverseMapC mapl ); 

> for map2 in tfusm do 

> init:= CompositionMaps( map2, inv ); 

> UniteSet( badclasses, Flat( PossibleClassFusions ( ext, m, 

> rec( fusionmap:= init ) ) ) ); 

> od; 

> od; 

> od; 

> od; 

gap> badclasses; 
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[ 1, 3, 4, 5, 6, 7, 9, 10, 11, 12, 14, 15, 17, 18, 19, 20, 21, 22, 24, 25, 
27, 28, 30, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44, 45, 46, 48, 49, 50, 51, 
52, 53, 54, 55, 56, 60, 61, 62, 63, 70, 72, 73, 78, 82, 85, 86, 90, 94, 95, 
96 ] 

gap> Length ( badclasses ) ; 
59 

gap> classlengths : = SizesConjugacyClasses ( m ) ; ; 

gap> bad:= Sum( classlengths{ badclasses } ) / Size( m ) ; ; 

gap> Int( 10000 * bad ); 

204 

Now we estimate the lower bounds S(s,g G ) introduced in Section 2 1 Let B denote the union of the 
classes described by badclasses, and let M denote a set of representatives of the 43 known classes 
of maximal subgroups of M. 

If s <£ B then 

S(s,g G ) = \s G \-\s G \- £ lf(s)-lf(g)/lf(l), 

hence 5(s) can be computed from the corresponding primitive permutation characters, and a lower 
bound for S(s) can be computed from the upper bounds for the characters l G which are given by the 
list primdata. 

If s G B then the above equation for 5(s,g G ) holds at least for g £ B, so X^ s en\B ^( s '9°) ^ s a l° wer 
bound for S(s). So primdata yields a lower bound for 8(s) also for s £ B, by ignoring the pairs (s,g) 
where both s and g lie in B. 

This means that modifying the output of LowerBoundsVertexDegrees as follows really yields lower 
bounds for the vertex degrees. (Note that the row and column positions in the matrix returned by 
LowerBoundsVertexDegrees are shifted by one, compared to badclasses.) 

gap> prim:= List( primdata, x -> x[2] );; 

gap> badpos:= Difference( badclasses, [ 1 ] ) - 1;; 

gap> bounds := LowerBoundsVertexDegrees ( classlengths, prim );; 

gap> for i in badpos do 

> for j in badpos do 

> bounds [i] [j] := 0; 

> od; 

> od; 

Now we sum up the bounds for the individual classes. It turns out that the minimal vertex degree is 
more than 97.9 percent of \M\. This proves that the generating graph of the Monster satisfies Posa's 
criterion. 

(And the minimal vertext degree of elements outside B is more than 99.99998 percent of \M\.) 

gap> degs:= List( bounds, Sum );; 

gap> Int( 10000 * Minimum( degs ) / Size( m ) ); 

9795 

gap> goodpos:= Difference ( [ 1 .. NrConjugacyClasses ( m ) - 1 ], badpos );; 

gap> Int( 100000000 * Minimum( degs{ goodpos } ) / Size( m ) ); 

99999987 

4.3 Nonsimple Automorphism Groups of Sporadic Simple Groups 

Next we consider the nonsimple automorphism groups of the sporadic simple groups. Nontrivial outer 
automorphisms exist exactly in 12 cases, and then the simple group has index 2 in its automorphism 
group. The character tables of the groups and their maximal subgroups are available in GAP. 
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gap> spornames : = AllCharacterTableNames ( IsSporadicSimple , true );; 
gap> sporautnames : = AllCharacterTableNames ( IsSporadicSimple, true, 

> Of Those, AutomorphismGroup );; 

gap> sporautnames : = Difference ( sporautnames, spornames ); 

[ "F3+.2", "Fi22.2", "HN.2", "HS.2", "He. 2", "J2.2", "J3.2", "M12.2", 

"M22.2", "McL.2", "ON. 2", "Suz.2" ] 
gap> for tbl in List( sporautnames, CharacterTable ) do 

> info:= HamiltonianCyclelnf oFromCharacterTable( tbl ); 

> Print ( Identified tbl ), ": ", info, "\n" ); 

> od; 

F3+.2: Chvatal for Oth closure, Posa for 1st closure 



Fi22.2: Chvatal for Oth closure, Posa for 1st closure 



HN 


2 
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for 


Oth 


closure , 


Posa 


for 


1st 


closure 


HS 
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for 
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closure , 


Posa 


for 
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closure 


He 
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for 


Oth 


closure , 


Posa 


for 


1st 


closure 


J2 
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Chvatal 


for 


Oth 


closure , 


Posa 


for 


1st 


closure 


J3 
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Chvatal 


for 


Oth 


closure, 


Posa 


for 


1st 


closure 



M12.2: Chvatal for Oth closure, Posa for 1st closure 
M22.2: Posa for 1st closure 

McL.2: Chvatal for Oth closure, Posa for 1st closure 
ON. 2: Chvatal for Oth closure, Posa for 1st closure 
Suz.2: Chvatal for Oth closure, Posa for 1st closure 



4.4 Alternating and Symmetric Groups A n , S n , for 5 < n < 13 

For alternating and symmetric groups A n and S n , respectively, with 5 < n < 13, the table of marks 
or the character tables of the group and all its maximal subgroups are available in GAP. So we can 
compute the character-theoretic bounds for vertex degrees. 

gap> for tbl in List( [5 .. 13 ] , i -> CharacterTable ( 

> Concatenation ( "A", StringC i ) ) ) ) do 

> info:= HamiltonianCyclelnf oFromCharacterTableC tbl ); 

> if info <> "Posa for Oth closure" then 

> Print ( Identifier ( tbl ), ": ", info, "\n" ); 

> fi; 

> od; 

No messages are printed, so the generating graphs of the alternating groups in question satisfy Posa's 
criterion. 

gap> for tbl in List( [5 .. 13 ] , i -> CharacterTable ( 

> Concatenation ( "S", StringC i ) ) ) ) do 

> info:= HamiltonianCyclelnf oFromCharacterTableC tbl ); 

> Print ( Identifier ( tbl ), ": ", info, "\n" ); 

> od; 

A5.2: no decision 

A6.2_l: Chvatal for 4th closure, Posa for 5th closure 
A7.2: Posa for 1st closure 

A8.2: Chvatal for 2nd closure, Posa for 3rd closure 
A9.2: Chvatal for 2nd closure, Posa for 3rd closure 
A10.2: Chvatal for 2nd closure, Posa for 3rd closure 
All. 2: Posa for 1st closure 

A12.2: Chvatal for 2nd closure, Posa for 3rd closure 
A13.2: Posa for 1st closure 
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We see that sufficiently large closures of the generating graphs of the symmetric groups in question 
satisfy Posa's criterion, except that the bounds for the symmetric group S5 are not sufficient for the 
proof. In Section [5.21 it is shown that the 2nd closure of the generating graph of £5 satisfies Posa's 
criterion. 

(We could define slightly better bounds derived only from character tables which suffice to prove that 
the generating graph for 5*5 contains a Hamiltonian cycle, but this seems to be not worth while.) 

5 Computations With Groups 

We prove in Section 15.11 that the generating graphs of the nonabelian simple groups of order up to 
10 6 satisfy Posa's criterion, and that the same holds for those nonabelian simple groups of order 
between 10 6 and 10 7 that are not isomorphic with some PSL(2, g). (In Section[6] it is shown that the 
generating graph of PSL(2, g) satifies Posa's criterion for any prime power g.) Nonsimple nonsolvable 
groups of order up to 10 6 are treated in Section f5. 21 

(We could increase the bounds 10 6 and 10 7 with more computations using the same methods.) 

For our convenience, we provide a small function that takes as its argument only the group in 
question, and returns a string, the return value of HamiltonianCyclelnf o for the vertex degrees 
computed from the group. (In order to speed up the computations, the function computes the proper 
normal subgroups that contain the derived subgroup of the given group, and enters the list of these 
groups as the third argument of VertexDegreesGeneratingGraph.) 

gap> HamiltonianCyclelnf oFromGroup : = function( G ) 



> local ccl, nsg, der, degrees, classlengths ; 

> ccl:= ConjugacyClasses ( G ); 

> if IsPerfect( G ) then 

> nsg:= [] ; 

> else 

> der : = DerivedSubgroup ( G ) ; 

> nsg:= Concatenation ( [ der ], 

> IntermediateSubgroups ( G, der ). subgroups ); 

> fi; 

> degrees:= VertexDegreesGeneratingGraph( G, ccl, nsg ); 

> classlengths : = List( ccl, Size ); 

> return HamiltonianCyclelnf o( classlengths, degrees ); 



> end; ; 

5.1 Nonabelian Simple Groups of Order up to 10 7 

Representatives of the 56 isomorphism types of nonabelian simple groups of order up to 10 6 can be 
accessed in GAP with the function AllSmallNonabelianSimpleGroups. 

gap> grps:= AllSmallNonabelianSimpleGroups ( [ 1 .. 10~6 ] );; 

gap> Length ( grps ) ; 

56 

gap> List( grps, StructureDescription ); 

[ "A5", "PSL(3,2)", "A6", "PSL(2,8)", "PSL(2, 11) " , "PSL(2, 13) " , "PSL(2, 17) " , 
"A7", "PSL(2,19)", "PSL(2,16)", "PSL(3,3)", "PSU(3,3)", "PSL(2,23)", 
"PSL(2,25)" ( "Mil", "PSL(2,27)", "PSL(2,29) " , "PSL(2,31) " , "A8", 
"PSL(3,4)", "PSL(2,37)", "0(5,3)", "Sz(8)", "PSL(2,32) " , "PSL(2,41) " , 
"PSL(2,43) M , "PSL(2,47) M , "PSL(2,49) " , "PSU(3,4)\ "PSL(2,53)", "M12", 
"PSL(2,59)", "PSL(2,6D", "PSU(3,5)", "PSL(2,67)", "Jl", "PSL(2,71) " , "A9", 
"PSL(2,73)", "PSL(2,79)", "PSL(2,64)", "PSL(2,81) " , "PSL(2,83) " , 
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"PSL(2,89)", "PSL(3,5)", "M22", "PSL(2,97) " , "PSL(2, 101) " , "PSL(2, 103) " , 
"HJ", "PSL(2,107)", "PSL(2,109)", "PSL(2, 113) " , "PSL(2, 121) " , "PSL(2, 125) " , 
"0(5,4)" ] 
gap> for g in grps do 

> info:= HamiltonianCyclelnf oFromGroup( g ); 

> if info <> "Posa for 0th closure" then 

> Print( StructureDescription( g ), ": ", info, "\n" ); 

> f i; 

> od; 

Nothing is printed during these computations, so the generating graphs of all processed groups satisfy 
Posa's criterion. 

(On my notebook, the above computations needed about 6300 seconds of CPU time.) 

For simple groups of order larger than 10 6 , there is not such an easy way (yet) to access representatives 
for each isomorphism type. Therefore, first we compute the orders of nonabelian simple groups 
between 10 6 and 10 7 . 



gap> orders:= Filtered( [ 10~6+4, 10~6+8 .. 10~7 ], 

> n -> IsomorphismTypelnf oFiniteSimpleGroup( n ) <> fail ): 



1342740, 
2165292, 
3594432, 
5663616, 



1451520, 
2328648, 
3822588, 
5848428, 



7906500, 8487168, 



1653900, 1721400, 

2413320, 2588772, 

3940200, 4245696, 

6004380, 6065280, 

9095592, 9732420, 



[ 1024128, 1123980, 1285608, 

1876896, 1934868, 2097024, 

2964780, 3265920, 3483840, 

4696860, 5515776, 5544672, 

6825840, 6998640, 7174332, 

9999360 ] 
gap> Length ( orders ); 
41 

gap> info:= List( orders, IsomorphismTypelnf oFiniteSimpleGroup ) 
gap> Number( info, x -> IsBound( x. series ) and x. series = "L" 
> and x. parameter [1] = 2 ); 

31 



1814400, 
2867580, 
4680000, 
6324552, 
9951120, 



We see that there are 31 groups of the type PSL(2, q) and 10 other nonabelian simple groups with 
order in the range from 10 s to 10 7 . The former groups can be ignored because the generating graphs 
of any group PSL(2, q) satisfies Posa's criterion, see Section [U For the latter groups, we can apply 
the character-theoretic method to prove that the generating graph satisfies Posa's criterion. 



gap> info:= Filtered( info, x -> not IsBound( x. series ) or 
> x. series <> "L" or x. parameter [1] <> 2 ); 

[ rec( name := "B(3,2) = 0(7,2) ~ C(3,2) = S(6,2)", series := 
parameter := [3, 2 ] ), 



'B" 



"A", parameter 
, series 
" 2D(3,3) 



rec( name := "A(10)", series : 
rec( name := "A(2,7) = L(3,7) 
rec( name := "2A(3,3) = U(4,3) 

parameter := [3, 3 ] ), 
rec( name := "6(2,3)", series := "G" , parameter 
rec( name := "B(2,5) = 0(5,5) ~ C(2,5) = S(4,5) 

parameter := [2, 5 ] ), 



10 ), 

"L", parameter := [3, 7 
0-(6,3)", series := "2A" , 



rec( name 
rec( name 
rec( name 

parameter := [4 
rec( name := "A (4, 2) 
gap> names := [ "S6(2)" 



:= "2A(2,8) = U(3,8)", series := "2A" , 
:= "2A(2,7) = U(3,7)", series := "2A" , 
:= "A(3,3) = L(4,3) ~ D(3,3) = 0+(6,3) 
3 ] ), 

L(5,2) ", series := "L" , 
"A10" , "L3(7)", "U4(3)", " 



:= 3 ), 

, series := 

parameter 
parameter 
" , series 



"B" , 

= [ 2, 
= [ 2, 
= "L", 



] ), 



] ), 
] ), 



parameter := [5, 2 ] ) ] 
G2(3)", "S4(5)", "U3(8)", 
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> "U3(7)", "L4(3)", "L5(2)" ];; 
gap> for tbl in List( names, CharacterTable ) do 

> info:= HamiltonianCyclelnf oFromCharacterTable( tbl ); 

> if info <> "Posa for Oth closure" then 

> Print ( Identified tbl ), ": ", info, "\n" ); 

> fi; 

> od; 



5.2 Nonsimple Groups with Nonsolvable Socle of Order at most 10 6 

Let G be a nonsolvable group such that G/N is cyclic for all nontrivial normal subgroups N of G. 
Then the socle Soc(G) of G is the unique minimal normal subgroup. Moreover, Soc(G) is nonsolvable 
and thus a direct product of isomorphic nonabelian simple groups, and G is isomorphic to a subgroup 
of Aut(Soc(G)). 

In order to deal with all such groups G for which additionally |Soc(G)| < 10 6 holds, it is sufficient to 
run over the simple groups S of order up to 10 6 and to consider those subgroups G of Aut(5' n ), with 
\S\ n < 10 6 , for which Inn(G) is the unique minimal normal subgroups and G/Inn(G) is cyclic. 

We show that for each such group, a sufficient closure of the generating graph satisfies Posa's criterion. 

gap> grps:= AllSmallNonabelianSimpleGroups( [ 1 .. 10~6 ] );; 
gap> for simple in grps do 



> for n in [1 . . LogInt( 10~6, Size( simple ) ) ] do 

> # Compute the n-fold direct product S~n. 

> soc:= CallFuncList( DirectProduct , 

> ListWithIdenticalEntries( n, simple ) ); 

> # Compute Aut(S~n) as a permutation group. 

> aut:= Image ( IsomorphismPermGroupC AutomorphismGroupC soc ) ) ); 

> aut:= Image( SmallerDegreePermutationRepresentation( aut ) ); 

> # Compute class representatives of subgroups of Aut(S~n)/Inn(S~n) . 

> socle := Socle ( aut ); 

> epi:= NaturalHomomorphismByNormalSubgroupC aut, socle ); 

> reps:= List( ConjugacyClassesSubgroups( Image( epi ) ), 

> Representative ) ; 

> # Compute the candidates for G. 

> # (By the above computations, we need not consider simple socles.) 

> reps:= List( ConjugacyClassesSubgroups( Image( epi ) ), 

> Representative ) ; 

> reps:= Filtered( reps, x -> IsCyclic( x ) and 

> Size( x ) <> 1 ) ; 

> greps:= Filtered ( List( reps, x -> Prelmages( epi, x ) ), 

> x -> Length( MinimalNormalSubgroups ( x ) ) = 1 ); 

> for g in greps do 

> # We have to deal with a *transitive* permutation group. 

> # (Each group in question acts faithfully on an orbit.) 

> if not IsTransitive ( g ) then 

> g:= First( List( 0rbits( g, MovedPoints( g ) ), 

> x -> Action ( g, x ) ) , 

> x -> Size( x ) = Size( g ) ); 

> fi; 

> # Check this group G. 

> info:= HamiltonianCyclelnf oFromGroup( g ); 

> Print ( StructureDescription( g ), ": ", info, "\n" ); 

> od; 
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> od; 

> od; 

S5: Posa for 2nd closure 

(A5 x A5) : C2 : Posa for Oth closure 

(A5 x A5) : C4: Posa for Oth closure 

(A5 x A5 x A5) : C3: Posa for Oth closure 

((A5 x A5 x A5) : C3) : C2: Chvatal for 1st closure, Posa for 2nd closure 
PSL(3,2) : C2: Chvatal for Oth closure, Posa for 1st closure 
(PSL(3,2) x PSL(3,2)) : C2: Posa for Oth closure 
(PSL(3,2) x PSL(3,2)) : C4: Posa for Oth closure 
A6 . C2: Chvatal for Oth closure, Posa for 1st closure 
Chvatal for 4th closure, Posa for 5th closure 
C2: Chvatal for Oth closure, Posa for 1st closure 
C2: Posa for Oth closure 
C4: Posa for Oth closure 
C4: Posa for Oth closure 
. C4: Posa for Oth closure 
: C3: Posa for Oth closure 
x PSL(2,8)) : C2: Posa for Oth closure 
x PSL(2,8)) : C3) : C2: Chvatal for Oth closure, Posa for 1st closu\ 



S6: 
A6 
(A6 
(A6 
(A6 
(A6 



x A6) 
x A6) 
x A6) 
x A6) 
PSL(2,8) 
(PSL(2,8) 
((PSL(2,8) 
re 

PSL(2,11) 

(PSL(2,11) 

(PSL(2,11) 

PSL(2,13) 

PSL(2,17) 



C2: Chvatal for Oth closure, Posa for 1st closure 
x PSL(2,11)) : C2: Posa for Oth closure 
x PSL(2,11)) : C4: Posa for Oth closure 



C2: Chvatal for Oth closure, 
C2: Chvatal for Oth closure, 



Posa for 1st closure 
Posa for 1st closure 



S7: Posa for 1st closure 



PSL(2,19) 

PSL(2,16) 

PSL(2,16) 

PSL(3,3) : 

PSU(3,3) : 

PSL(2,23) 

PSL(2,25) 

PSL(2,25) 

PSL(2,25) 

PSL(2,27) 

PSL(2,27) 

(PSL(2,27) 

PSL(2,29) 

PSL(2,31) 



C2: Chvatal for Oth closure, 
C2: Chvatal for Oth closure, 
C4: Chvatal for Oth closure, 
C2: Chvatal for Oth closure, 
C2: Chvatal for Oth closure, 
C2: Chvatal for Oth closure, 
C2: Chvatal for Oth closure, 
C2: Chvatal for Oth closure, 
C2: Chvatal for Oth closure, 
C2: Chvatal for Oth closure, 
C3: Posa for Oth closure 
: C3) : C2: Chvatal for Oth closure 



Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 



Posa for 1st closure 



C2: Chvatal for Oth closure, Posa for 1st closure 
C2: Chvatal for Oth closure, Posa for 1st closure 



S8: Chvatal for 2nd closure, Posa for 3rd closure 
PSL(3,4) : C2: Chvatal for Oth closure, Posa for 1st closure 
PSL(3,4) : C2: Chvatal for 1st closure, Posa for 2nd closure 
PSL(3,4) : C2: Chvatal for Oth closure, Posa for 1st closure 
PSL(3,4) : C3: Posa for Oth closure 

(PSL(3,4) : C3) : C2: Chvatal for Oth closure, Posa for 1st closure 
PSL(2,37) : C2: Chvatal for Oth closure, Posa for 1st closure 
0(5,3) : C2: Chvatal for 1st closure, Posa for 2nd closure 



Sz(8) : C3 

PSL(2,32) 

PSL(2,41) 

PSL(2,43) 

PSL(2,47) 



Posa for Oth closure 



C5 
C2 
C2 
C2 



Posa for Oth closure 

Chvatal for Oth closure, Posa for 1st closure 

Chvatal for Oth closure, Posa for 1st closure 

Chvatal for Oth closure, Posa for 1st closure 
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PSL 
PSL 
PSL 
PSU 
PSU 
PSL 
M12 
PSL 
PSL 
PSU 
PSU 
PSL 
PSL 
S9: 
PSL 
PSL 
PSL 
PSL 



(PSL(2,64) : C3) : C2: Chvatal for Oth closure, Posa for 1st closure 



PSL 
PSL 
HJ 
PSL 
PSL 
PSL 
PSL 
PSL 
PSL 
PSL 
PSL 



2,49) 

2,49) 

2,49) 

3,4) 

3,4) 

2,53) 

: C2: 

2,59) 

2,61) 

3,5) 

3,5) 

2,67) 

2,71) 



: C2 
: C2 
. C2 
C2: 



Chvatal for Oth closure. 
Chvatal for Oth closure. 
Chvatal for Oth closure. 
Chvatal for Oth closure, 



C4: Chvatal for Oth closure, 
: C2: Chvatal for Oth closure, 



Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 



Chvatal for Oth closure, Posa for 1st closure 



: C2: Chvatal for Oth closure, 
: C2: Chvatal for Oth closure, 
C2: Chvatal for Oth closure, 
C3: Posa for Oth closure 
: C2: Chvatal for Oth closure, 
: C2: Chvatal for Oth closure, 



Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 

Posa for 1st closure 
Posa for 1st closure 



Chvatal for 2nd closure, Posa for 3rd closure 



2,73) 
2,79) 
2,64) 
2,64) 



C2 
C2 
C2 
C3 



Chvatal for Oth closure, Posa for 1st closure 

Chvatal for Oth closure, Posa for 1st closure 

Chvatal for Oth closure, Posa for 1st closure 
Posa for Oth closure 



PSL 


:2,81) 


: C2 


PSL 


:2,81) 


. C2 


PSL 


;2,81) 


: C2 


PSL 


;2,8D 


: C4 


PSL 


;2,8D 


. C4 


PSL 


[2,83) 


: C2 


PSL 


'2,89) 


: C2 


PSL 


;3,5) 


C2: 


M22 


: C2: 


Posa 


PSL 


:2,97) 


: C2 



Chvatal for Oth closure, 
Chvatal for Oth closure, 
Chvatal for Oth closure, 
Chvatal for Oth closure, 
Chvatal for Oth closure, 
Chvatal for Oth closure, 
Chvatal for Oth closure, 
Chvatal for Oth closure, 



Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 



Lvatal for Oth closure, Posa for 1st closure 
2,101) : C2: Chvatal for Oth closure, Posa for 1st closure 
2,103) : C2 : Chvatal for Oth closure, Posa for 1st closure 
C2: Chvatal for Oth closure, Posa for 1st closure 



(2,107) 
(2,109) 
(2,113) 
(2,121) 
(2,121) 
(2,121) 
(2,125) 
(2,125) 
(PSL(2,125) 
0(5,4) : C2 
0(5,4) : C4 



C2: Chvatal for Oth closure, 

C2: Chvatal for Oth closure, 

C2: Chvatal for Oth closure, 

C2: Chvatal for Oth closure, 

C2: Chvatal for Oth closure, 

C2: Chvatal for Oth closure, 

C2: Chvatal for Oth closure, 

C3 : Posa for Oth closure 
: C3) : C2: Chvatal for Oth closure 



Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 
Posa for 1st closure 



Posa for 1st closure 



Chvatal for Oth closure, 
Posa for Oth closure 



Posa for 1st closure 



(The StructureDescription calls are as expensive as the calls of HamiltonianCyclelnf oFromGroup. 



6 The Groups PSL(2,g) 

We show that the generating graph of any group PSL(2,q), for q > 2, satisfies Posa's criterion. 
Throughout this section, let q — p? for a prime integer p, and G = PSL(2, q). Set k — gcd(q — 1,2). 

Lemma 6.1 (see |Hup67| II., § 8]) The subgroups of G are 
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(1) cyclic groups of order dividing (g ± l)/k, and their normalizers, which are dihedral groups of 
order 2(q ± l)/fc, 

(2) subgroups of Sylow p normalizers, which are semidirect products of elementary abelian groups 
of order q with cyclic groups of order (q — l)/k, 

(3) subgroups isomorphic with PSL(2,p m ) if m divides f, and isomorphic with PGL(2,p m ) if 2m 
divides f , 

(4) subgroups isomorphic with A4, S4, or A 5 , for appropriate values of q. 

G contains exactly one conjugacy class of cyclic subgroups of each of the orders (q—l)/k and (q+l)/k, 
and each nonidentity element of G is contained in exactly one of these subgroups or in exactly one 
Sylow p subgroup of G. 

We estimate the number of elements that are contained in subgroups of type (3). 

Lemma 6.2 Let n s f(q) denote the number of those nonidentity elements in G that are contained in 
proper subgroups of type (3). Then n s f(q) < q 2 (^rj(\/q — 1) — 1)- // / is a prime then n s /(g) < 
(2p — l)q 2 holds, and if p = q then we have of course n s f(q) = 0. 

Proof. The group PGL(2,p m ) is equal to PSL(2,p m ) for p = 2, and contains PSL(2,p m ) as a 
subgroup of index two if p 7^ 2. So the largest element order in PGL(2,p m ) is at most p m + 1. Let C 
be a cyclic subgroup of order (q + e)/k in G, for e € {±1}- The intersection of C with any subgroup 
of G isomorphic with PGL(2,p m ) or PSL(2,p m ) is contained in the union of the unique subgroups 
of the orders gcd(|G|,p m + 1) and gcd(|G|,p m — 1) in C. So C contains at most 2p m — 2 nonidentity 
elements that can lie inside subgroups isomorphic with PGL(2,p m ) or PSL(2,p m ). Hence C contains 
at most Ylmi^P" 1 ~ 2) nonidentity elements in proper subgroups of type (3), where m runs over the 
proper divisors of /. This sum is bounded from above by *^l{l'l 1 {2p rn — 2) < ^t[(a/<7 — 1) — 2. 

The numbers of cyclic subgroups of the orders (q + e)/k in G are q(q — e)/2, so G contains altogether 
q 2 such cyclic subgroups. They contain at most q 2 (^rj(^/q — 1) — 2) elements inside proper subgroups 
of the type (3). 

All elements of order p in G are contained in subgroups of type (3), and there are exactly q 2 — 1 such 
elements. This yields the claimed bound for n s f(q). The better bound for the case that / is a prime 
follows from ^2 m {2p m — 2) = 2p — 2 if m ranges over the proper divisors of /. D 

Using these bounds, we see that the vertex degree of any element in G that does not lie in subgroups 
of type (4) is larger than |G|/2. (In fact we could use the calculations below to derive a better 
asymptotic bound, but this is not an issue here.) 

Lemma 6.3 Let s £ G be an element of order larger than 5. Then \{g € G; {g, s) — G}\ > \G\/2. 

Proof. First suppose that the order of s divides (q+ l)/k or (q— l)/k. If g € G such that U = (s, g) 
is a proper subgroup of G then U < Ng({s}) or U lies in a Sylow p normalizer of G or U lies in 
a subgroup of type (3). Since s is contained in at most two Sylow p normalizers (each Sylow p 
normalizer contains q cyclic subgroups of order (q — l)/k, and G contains q + 1 Sylow normalizers 
and q(q + l)/2 cyclic subgroups of order (g — l)/fe), the number of g G G with the property that 
(s,g) / G is at most N = 2(q + l)/k + 2q(q -l)/k + n sf (q) = 2(q 2 + l)/k + n sf (q); for s of order 
equal to (q + l)/k or (g — l)/fc, we can set N = 2(q 2 + l)/k. 

Any element s of order p (larger than 5), lies only in a unique Sylow p normalizer and in subgroups 
of type (3), so the bound N holds also in this case. 

For / = 1, N is smaller than |G|/2 = g(g 2 — 1)/ (2k) if g > 5. (The statement of the lemma is trivially 
true for g < 5.) 

For primes /, N is smaller than |G|/2 if g 2 (g — 8p) > q + 4 holds, which is true for > 8p. Only 
the following values of p 5 with prime / do not satisfy this condition: 2 2 and 3 2 (where no element of 
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order larger than 5 exists), 2 3 (where only elements of order equal to q ± 1 must be considered), 5 2 
and 7 2 (where n s f(q) < (p— 1)5(5 + 1) because in these cases the cyclic subgroups of order (5+ l)/k 
cannot contain nonidentity elements in subgroups of type (3)). 

Finally, if / is not a prime then N is smaller than \G\/2 if 5 2 (5 — 3^(^/3 — 1)) > 5 + 4 holds, which 
is true for 5 > 256. The only values of p' with non-prime / that do not satisfy this condition are 2 4 , 
2 6 , and 3 4 . In all three cases, we have in fact N < \G\/2, where we have to use the better bound 
n a f(q) < I65 2 in the third case. EH 

In order to show that the generating graph of G satisfies Posa's criterion, it suffices to show that the 
vertex degrees of involutions is larger than the number of involutions, and that the vertex degrees of 
elements of orders 2, 3, 4, and 5 are larger than the number of elements whose order is at most 5. 

Lemma 6.4 Let n(q, m) denote the number of elements of order m in G, and let ip(m) denote the 
number of prime residues modulo m. 

• We have n(q, 2) — q 2 — 1 if 5 is even and n(q, 2) < 5(5 + l)/2 if 5 is odd. 

• For m £ {3, 4, 5}, we have n(q, m) < ip(m)q(q + l)/2. 

• We have n{q, (5 + l)/k) = <p((q + l)/k)q(q - l)/2. 

Lemma 6.5 If 5 > 11 then each involution in G has vertex degree larger than n(q,2). 

If ¥>((</ + > 12 then each element of order 3, 4, or 5 has vertex degree larger than Ylm=2 n (l' m )- 

Proof. Let seGof order at most 5. For each element g € G of order (5 + l)/fc, U = {g, s) is either 
G or contained in the dihedral group of order 2(5 + l)/k that normalizes (g). 

If s is an involution then the number of such dihedral groups that contain s is at most (5 + 3)/2, 
and at least n(q, (5 + l)/fc) - tp((q + l)/k)(q + 3)/2 = tp((q + l)/k)(q 2 - 25 - 3)/2 elements of order 
(5 + l)/fc contribute to the vertex degree of s. This number is larger than 5 2 — 1 > n(q, 2) if 5 > 11 
(and hence ^((5 + l)/k) > 3) holds. 

If s is an element of order 3, 4, or 5 then U 7^ G means that s G (g), so at least n(q, (5 + l)/k) — 4 
elements of order (5+ l)/k contribute to the vertex degree of s. This number is larger than 55(5+1) > 
J2l =2 n(q,m)ii<p((q + l)/k)>12. □ 

It remains to deal with the values 5 where ip((q + l)/fc) < 12, that is, (5 + l)/fc < 30. We compute 
that the statement of Lemma 16.51 is true also for prime powers 5 with 11 < 5 < 59. 

gap> TestL2q:= function( t ) 



> local orders, nccl, cl, prim, bds , n, ord; 
> 

> orders := OrdersClassRepresentatives ( t ); 

> nccl:= Length( orders ); 

> cl:= SizesConjugacyClasses ( t ); 

> prim:= PrimitivePermutationCharacters ( t ); 

> bds:= List( LowerBoundsVertexDegrees ( cl, prim ), Sum ); 

> n:= List( [1 .. 5 ], i -> Sum( cl{ Filtered( [ 1 .. nccl ], 

> x -> orders [x] = i ) } ) ) ; 

> if ForAnyC Filtered( [ 1 .. nccl ] , i -> orders [i] > 5 ), 

> i -> bds[i-l] <= Size( t ) / 2 ) then 

> Error ( "problem with large orders for ", name ); 

> elif ForAnyC FilteredC [ 1 .. nccl ] , i -> orders[i] = 2 ), 

> i -> bds[i-l] <= n[2] ) then 

> Error( "problem with order 2 for ", name, "\n" ); 

> elif ForAnyC FilteredC [ 1 .. nccl ] , i -> orders[i] in [3 .. 5 ] ), 

> i -> bds[i-l] <= SumC n{ [ 2 . . 5 ] } ) ) then 
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> Error( "problem with order in [ 3 . . 5 ] for ", name ); 

> f i; 

> end; ; 

gap> for q in Filtered( [13 . . 59 ] , IsPrimePowerlnt ) do 

> TestL2q( CharacterTable ( Concatenation "L2(", StringC q ), ")" ) ) ); 

> od; 

For 2 < q < 11, the statement of Lemma 16.51 is not true but Posa's criterion is satisfied for the 
generating graphs of the groups PSL(2,q) with 2 < q < 11. 

gap> for q in Filtered( [2 . . 11 ] , PrimePowerlnt ) do 

> info:= HamiltonianCyclelnf oFromGroupC PSL( 2, q ) ); 

> if info <> "Posa for Oth closure" then 

> Print ( q, " : ", info, "\n" ) ; 

> f i; 

> od; 
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